1 REM ==================================
2 REM    COMMODARES PROBLEM #43-3 :
3 REM     RANDOM ORDER
4 REM    SOLUTION BY
5 REM     JIM SPEERS
6 REM ==================================
100 INPUT"[147]LOWER LIMIT";L:L=INT(L+.5)
110 INPUT"UPPER LIMIT";H:H=INT(H+.5)
120 IF H<L THEN T=H : H=L : L=T
130 W=H-L+1 : DIM N(W-1) : FOR I=1 TO W
140 X=INT(RND(1)*W)
150 IF N(X)=0 THEN 180
160 X=X+1 : IF X=W THEN X=0
170 GOTO 150
180 N(X)=1 : PRINT X+L;
190 NEXT I